home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / util / misc / EuraCoUpd.lha / EuraConfig / Update < prev    next >
Text File  |  1996-12-19  |  3KB  |  131 lines
  1. ; ************************************************
  2. ; *
  3. ; * EuraConfig - HD Update Script
  4. ; *
  5. ; * $VER: Update-EuraConfig 2.00
  6. ; *
  7. ; * Script written by Richard Körber
  8. ; *
  9. ; ************************************************
  10.  
  11. ;------- Prompts ---------------------------------
  12. ;
  13. (set DestDirPrompt
  14.   (cat  "Wohin wurde EuraConfig installiert?\n"
  15.         "(Bitte mit Unterverzeichnis angeben!)"
  16.   )
  17. )
  18.  
  19. (set Ask020Prompt
  20.   (cat  "Wurde die für den 68020 und höher\n"
  21.         "optimierte Version installiert?"
  22.   )
  23. )
  24.  
  25. (set CopyDocPrompt
  26.   (     "Kopiere die Anleitung.")
  27. )
  28.  
  29. (set PatchPrompt
  30.   (     "Generiere das Update.")
  31. )
  32.  
  33. ;------- Help ------------------------------------
  34. ;
  35. (set DestDirHelp
  36.   (cat  "Wählen Sie das Zielverzeichnis aus, z. B.\n"
  37.         "'Work:EuraConfig'."
  38.   )
  39. )
  40.  
  41. (set CopyDocHelp
  42.   (cat  "Welche Teile der Anleitung sollen\n"
  43.         "aktualisiert werden?"
  44.   )
  45. )
  46.  
  47. (set Ask020Help
  48.   (cat  "WICHTIG: Geben Sie hier unbedingt an,\n"
  49.         "welche Version Sie installiert haben.\n\n"
  50.         "Wenn Ihre Angabe nicht stimmt, kann das\n"
  51.         "Update nicht durchgeführt werden!"
  52.   )
  53. )
  54.  
  55. ;------- Messages --------------------------------
  56. ;
  57. (set StartupMsg
  58.   (cat  "\nWillkommen zum\n\n"
  59.         "EuraConfig Update\n\n\n"
  60.         "von Version 2.0 auf Version 2.1"
  61.   )
  62. )
  63.  
  64. (set AllrightMsg
  65.   (     "\nEuraConfig ist jetzt aktualisiert."
  66.   )
  67. )
  68.  
  69. (set CPU000 "68000, 68010")
  70. (set CPU020 "68020, 68030, 68040, 68060")
  71.  
  72. ;------- Files -----------------------------------
  73. ;
  74. (set Patch          "spatch")
  75. (set EuraCfg000     "EuraConfig.pch")
  76. (set EuraCfg020     "EuraConfig_020.pch")
  77. (set EuraCfg        "EuraConfig")
  78. (set EuraHistory    "History.txt")
  79.  
  80. ;------- Installation ----------------------------
  81. ;
  82. (message StartupMsg)            ;-------- Welcome the user
  83.  
  84. (set DestDir                    ;-------- Ask dir to create drawer into
  85.   (askdir
  86.     (prompt  DestDirPrompt)
  87.     (help    DestDirHelp)
  88.     (default "Work:EuraConfig")
  89.   )
  90. )
  91. (set @default-dest (DestDir))
  92.  
  93. (set usedcpu (+ (database "cpu")))      ; Is a 68020+ available?
  94. (if (< usedcpu 68020)
  95.   (set usedcpu 0)
  96.   (set usedcpu 1)
  97. )
  98. (if (= @user-level 2)
  99.   (set CPUVer
  100.     (askchoice
  101.       (prompt Ask020Prompt)
  102.       (help   Ask020Help)
  103.       (choices CPU000 CPU020)
  104.       (default usedcpu)
  105.     )
  106.   )
  107.   (set CPUVer usedcpu)
  108. )
  109.  
  110. (set Targetfile (tackon DestDir EuraCfg))
  111.  
  112. (if (= CPUVer 0)
  113.   (set Cmd (cat Patch " -o" Targetfile " -p" EuraCfg000 " " Targetfile))
  114.   (set Cmd (cat Patch " -o" Targetfile " -p" EuraCfg020 " " Targetfile))
  115. )
  116. (run Cmd (prompt PatchPrompt))
  117.  
  118. (copyfiles                              ; Copy the documentation
  119.   (prompt  CopyDocPrompt)
  120.   (help    CopyDocHelp)
  121.   (source  "")
  122.   (choices EuraHistory)
  123.   (dest    DestDir)
  124.   (confirm)
  125. )
  126.  
  127. (message AllrightMsg)
  128.  
  129. ;------- Done ------------------------------------
  130.  
  131.